'From Squeak3.9 of 7 November 2006 [latest update: #7067] on 16 April 2007 at 6:10:37 pm'!Prolog subclass: #DFAutomata	instanceVariableNames: ''	classVariableNames: ''	poolDictionaries: ''	category: 'Prolog'!!DFAutomata methodsFor: 'as yet unclassified' stamp: 'rs 4/16/2007 11:59'!parse(L) :- start(S), 	trans(S,L).! !!DFAutomata methodsFor: 'as yet unclassified' stamp: 'rs 4/16/2007 11:59'!trans(X,[A|B]) :-       delta(X,A,Y),         write(X),      write('  '),      write([A|B]),      nl(),      trans(Y,B).  trans(X,[]) :-       final(X),      write(X),      write('  '),      write([]), nl().! !